home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / lib / finddepth.pl < prev    next >
Encoding:
Text File  |  1999-12-28  |  353 b   |  19 lines
  1.  
  2.  
  3. use File::Find ();
  4.  
  5. *name        = *File::Find::name;
  6. *prune        = *File::Find::prune;
  7. *dir        = *File::Find::dir;
  8. *topdir        = *File::Find::topdir;
  9. *topdev        = *File::Find::topdev;
  10. *topino        = *File::Find::topino;
  11. *topmode    = *File::Find::topmode;
  12. *topnlink    = *File::Find::topnlink;
  13.  
  14. sub finddepth {
  15.     &File::Find::finddepth(\&wanted, @_);
  16. }
  17.  
  18. 1;
  19.